<%

dim file, path
file = request("f") ' "PB Heropening Theater Zuidplein.eml"
path = server.mappath(".") & "/input/4kabelkrant/"

' tijdelijk....
' response.redirect "input/4kabelkrant/" & file

Set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.getfile(path & file)

response.buffer = true
response.clear
response.expires = 0

'response.addheader "Content-Disposition", "attachment; filename=" & file
'response.addheader "Content-Disposition", "inline; filename=" & file
response.addheader "Content-Length", f.size 
' response.contenttype = "application/x-msoutlook; Content-Transfer-Encoding: base64 Boundary=---END OF EMAIL---"
response.contenttype = "application/x-msoutlook"

set f = fs.opentextfile(path & file)

response.binarywrite f.readall

response.write "---END OF EMAIL---"

response.end

f.close

set f = nothing
set fs = nothing

%>